home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / terminal / fpac241 / fpacinst.cmd < prev    next >
Encoding:
Text File  |  1994-06-19  |  2.5 KB  |  105 lines
  1. /* WPS-Installationsroutine für FlexPacket/2  */
  2. /* Anlegen eines Ordners mit Programmobjekten */
  3. /* auf dem WPS-Desktop für Packet Radio.      */
  4. /*  (C) 11.9.1993 Henning Stöcklein DB5SH     */
  5. /*                     Version: 19.6.1994     */
  6.  
  7. /* REXXUTIL laden */
  8. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  9. CALL sysloadfuncs
  10.  
  11. CALL SysCls
  12. SAY
  13. SAY 'FPACINST.CMD: Anlegen eines WPS-Objekts für FlexPacket/2'
  14. SAY
  15. SAY 'Hinweis: Die Dateien von FlexPacket/2 sollten bereits kopiert sein.'
  16. SAY 'Andernfalls den Prozeß bitte jetzt mit CTRL-C abbrechen.'
  17. SAY 'In welchem Verzeichnis befindet sich FlexPacket/2 ? [z.B. E:\FPAC]'
  18. SAY
  19. PULL Path
  20. SAY
  21.  
  22. /* Abfrage, ob FlexPacket/2 wirklich installiert ist */
  23. SAY Path'\FPAC.* suchen ...'
  24. CALL SysFileTree Path'\FPAC.*', Datei, 'F'
  25. IF Datei.0 < 3 THEN
  26. DO
  27.    SAY Path'\FPAC.* nicht gefunden.'
  28.    SAY 'FlexPacket/2 ist hier noch nicht installiert !'
  29.    EXIT
  30. END
  31. SAY Datei.0' Dateien zu FlexPacket/2 gefunden ...'
  32.  
  33. /* Den Ordner anlegen */
  34. Klasse='WPFolder'
  35. Titel='FlexPacket für OS/2'
  36. Ort='<WP_DESKTOP>'
  37. Param='OBJECTID=<FPAC_ORDNER>;ICONFILE='Path'\FPACFOLD.ICO'
  38. CALL CreateObject
  39.  
  40. /* Die Programmobjekte anlegen */
  41. Klasse='WPProgram'
  42. Titel='FlexPacket/2'
  43. Ort='<FPAC_ORDNER>'
  44. Param='PROGTYPE=PM;EXENAME='Path'\FPAC.EXE;ICONFILE='Path'\FPAC.ICO;STARTUPDIR='Path';'
  45. CALL CreateObject
  46.  
  47. Klasse='WPShadow'
  48. Titel='Connect-Liste'
  49. Ort='<FPAC_ORDNER>'
  50. Param='SHADOWID='Path'\FPAC.CON;'
  51. CALL CreateObject
  52.  
  53. Klasse='WPShadow'
  54. Titel='Rufzeichen-Liste'
  55. Ort='<FPAC_ORDNER>'
  56. Param='SHADOWID='Path'\FPAC.USR;'
  57. CALL CreateObject
  58.  
  59. Klasse='WPShadow'
  60. Titel='TNC-Reset'
  61. Ort='<FPAC_ORDNER>'
  62. Param='SHADOWID='Path'\TNC.EXI;'
  63. CALL CreateObject
  64.  
  65. Klasse='WPShadow'
  66. Titel='TNC-Setup'
  67. Ort='<FPAC_ORDNER>'
  68. Param='SHADOWID='Path'\TNC.INI;'
  69. CALL CreateObject
  70.  
  71. Klasse='WPShadow'
  72. Titel='Kurzinfo'
  73. Ort='<FPAC_ORDNER>'
  74. Param='SHADOWID='Path'\FPAC.1ST;'
  75. CALL CreateObject
  76.  
  77. Klasse='WPShadow'
  78. Titel='Readme'
  79. Ort='<FPAC_ORDNER>'
  80. Param='SHADOWID='Path'\READ.ME;'
  81. CALL CreateObject
  82.  
  83. Klasse='WPProgram'
  84. Titel='Referenzhandbuch'
  85. Ort='<FPAC_ORDNER>'
  86. Param='PROGTYPE=PM;EXENAME=VIEW.EXE;PARAMETERS=FPAC;ICONFILE='Path'\BUCH.ICO;STARTUPDIR='Path';'
  87. CALL CreateObject
  88.  
  89. SAY
  90. SAY 'Der Ordner und die Programmsymbole sind jetzt angelegt.'
  91. EXIT
  92.  
  93. /* Unterprogramm: Objekt anlegen */
  94. CreateObject:
  95. SAY 'Es wird das Objekt 'Titel' angelegt.'
  96. result = SysCreateObject(Klasse, Titel, Ort, Param)
  97.  
  98. if result = 1 THEN
  99.   SAY 'Ok.'
  100. ELSE
  101.   SAY 'Fehler !'
  102. RETURN
  103.  
  104. /* Ende von FPACINST.CMD */
  105.